home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL2.LZH / DATE.INC < prev    next >
Text File  |  1984-07-13  |  459b  |  25 lines
  1. PROCEDURE ShowDate;
  2. {  Procedure for Dos 2.0 function $2A  (get date).
  3. {  Danny Cavasos       June 1984  }
  4. TYPE
  5.   varX=RECORD
  6.     varL,varH:BYTE;
  7.   END;
  8.   DateRec=RECORD
  9.     AX:varX;
  10.     BX,Year:INTEGER;
  11.     Day,Month:BYTE;
  12.     BP,SI,DI,DS,ES,FLAGS:INTEGER;
  13.   END;
  14. VAR
  15.   DateParm:DateRec;
  16. BEGIN
  17.   GOTOXY(60,2);
  18.   WITH DateParm DO
  19.     BEGIN
  20.       AX.varH:=$2A;
  21.       MsDos(DateParm);
  22.       WRITE(Month,'-',Day,'-',Year);
  23.     END;
  24. END;
  25.